Alternáló sorozat, előltesztelő (while) ciklussal (Alternalo.pas) program Alternalo; uses crt; var i,a,s,x,n:integer; BEGIN    write('n:=');    readln(n);    i:=1;    a:=1;    s:=-1; Ezzel a változóval módosítjuk az érték előjelét.    x:=1; x = változó növekmény    while(i<=n) do begin       writeln(a);       x:=x+2; A növekményt növeljük 2-vel. Ez az előjelváltáshoz szükséges összeadás miatt kell.       a:=a+s*x; A sorozatelem aktuális értékéhez hozzáadjuk a változó előjelű növekményt.       s:=s*(-1); Megváltoztatjuk az s változó előjelét.       i:=i+1;       end; END. Alternáló sorozat, for ciklussal (AlternaloV1.pas) program AlternaloV1; uses crt; var i,a,n:integer; BEGIN    write('n:=');    readln(n);    a:=1;    s:=-1;    x:=1;    for i:=1 to n do begin       writeln(a);       x:=x+2;       a:=a+s*x;       s:=s*(-1);       end; END. Alternáló sorozat, hátultesztelő (repeat - until) ciklussal (AlternaloV2.pas) program AlternaloV2; uses crt; var i,a,n:integer; BEGIN    write('n:=');    readln(n);    i:=1;    a:=1;    s:=-1;    x:=1;    repeat       writeln(a);       x:=x+2;       a:=a+s*x;       s:=s*(-1);       i:=i+1;    until(i>n); END.